﻿Public Class Classe

    Private _Name As String
    Private _ManSprite As Integer
    Private _WomanSprite As Integer
    Private _Strength As Integer
    Private _Defense As Integer
    Private _Agility As Integer
    Private _Magic As Integer
    Private _Heal As Integer
    Private _Mana As Integer
    Private _Special As Integer
    Private _StartX As Integer
    Private _StartY As Integer
    Private _StartMap As Integer

    Public Property Name As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property

    Public Property ManSprite As Integer
        Get
            Return _ManSprite
        End Get
        Set(ByVal value As Integer)
            _ManSprite = value
        End Set
    End Property

    Public Property WomanSprite As Integer
        Get
            Return _WomanSprite
        End Get
        Set(ByVal value As Integer)
            _WomanSprite = value
        End Set
    End Property

    Public Property Stength As Integer
        Get
            Return _Strength
        End Get
        Set(ByVal value As Integer)
            _Strength = value
        End Set
    End Property

    Public Property Defense As Integer
        Get
            Return _Defense
        End Get
        Set(ByVal value As Integer)
            _Defense = value
        End Set
    End Property

    Public Property Agility As Integer
        Get
            Return _Agility
        End Get
        Set(ByVal value As Integer)
            _Agility = value
        End Set
    End Property

    Public Property Magic As Integer
        Get
            Return _Magic
        End Get
        Set(ByVal value As Integer)
            _Magic = value
        End Set
    End Property

    Public Property Heal As Integer
        Get
            Return _Heal
        End Get
        Set(ByVal value As Integer)
            _Heal = value
        End Set
    End Property

    Public Property Mana As Integer
        Get
            Return _Mana
        End Get
        Set(ByVal value As Integer)
            _Mana = value
        End Set
    End Property

    Public Property Special As Integer
        Get
            Return _Special
        End Get
        Set(ByVal value As Integer)
            _Special = value
        End Set
    End Property

    Public Property StartX As Integer
        Get
            Return _StartX
        End Get
        Set(ByVal value As Integer)
            _StartX = value
        End Set
    End Property

    Public Property StartY As Integer
        Get
            Return _StartY
        End Get
        Set(ByVal value As Integer)
            _StartY = value
        End Set
    End Property

    Public Property StartMap As Integer
        Get
            Return _StartMap
        End Get
        Set(ByVal value As Integer)
            _StartMap = value
        End Set
    End Property


End Class
